home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / apb17.zip / TIMER.BAS < prev    next >
BASIC Source File  |  1990-12-20  |  539b  |  30 lines
  1.  
  2.     ' Program to test TIMER.COM program
  3. Sub Timer.On Ticks%,Userno% External "Timer.com"
  4. Sub Timer.Off External "" 3
  5. Sub Timer.Reset External "" 6
  6.  
  7. Print "Hello"
  8. Timer.On 18,3    ' Turn timer on very 18 ticks (one second) on channel 3
  9. On End Do Timer.Off
  10. Trap User(3) gosub Print.Time
  11. Trap User(3) On
  12. X#=Timer
  13. While Instat=0
  14.   Locate (I mod 20)+2,10
  15.   Print "Hello with i=";i;
  16.   Incr I,1
  17. Wend
  18. C$=Inkey$
  19. End
  20. '
  21. '
  22. Print.Time:
  23.     Svc=Csrcol:Svr=Csrlin
  24.     Locate 1,50
  25.     Print "In trap ";Time$;
  26.     Locate Svr,Svc
  27.     Trap Return
  28.  
  29.  
  30.